home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPM_1095_TSScrollBar < prev    next >
Encoding:
Text File  |  1992-04-08  |  682 b   |  33 lines
  1. %case doChoice%
  2.     %DoChoice%
  3. %case itemNr%
  4.     %DefineItem%
  5. %case classDecl%
  6.     %if classname = TSScrollBar%
  7.     %elsif classname = TScrollBar%
  8.     %else%
  9.  
  10.         Type
  11.             %classname% = Object (%superClass%) 
  12.                 {$IFC qInspector}
  13.                 Procedure Fields    (
  14.                         Procedure DoToField    (fieldName:        Str255;
  15.                                              fieldAddr:        Ptr;
  16.                                              fieldType:        integer)
  17.                                     ); Override;
  18.                 {$ENDC}
  19.             end; {%classname%}
  20.     %endif%
  21. %case gDeadStripSuppression%
  22.     %if classname = TSScrollBar%
  23.     %elsif classname = TScrollBar%
  24.     %else%
  25.         if Member (TObject (nil), %classname%) then ;
  26.     %endif%
  27. %case classMethods%
  28.     %if classname = TSScrollBar%
  29.     %elsif classname = TScrollBar%
  30.     %else%
  31.         %classMethods%
  32.     %endif%
  33.